home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / toh < prev    next >
Encoding:
Text File  |  1986-12-11  |  663 b   |  60 lines  |  [THPR/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    TOWER OF HANOI
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. | 
  8. ┼
  9. #M;
  10. 300 150 ║
  11. ("!How many disks? " ? D: D. ! "!"
  12.  D. 0 > D. 5 < ┤ ~
  13. #H,D.,"Left","Right","Middle";)
  14. #A;
  15. ┼
  16. "THE END."
  17.  
  18. $
  19. &A
  20. "Hit any key: " ?ñ ╡ @`
  21. |
  22. |  Main subroutine
  23. |
  24. &H
  25.   1% D:
  26.   D. 1 = [#Z,2%,3%; ` ]
  27.   D. 1 - D :
  28.   #H,D.,2%,4%,3%;
  29.   #Z,2%,3%;
  30.   #H,D.,4%,3%,2%; `
  31. |
  32. |  Subroutine for output
  33. |
  34. &Z
  35.     "Move " 1% " to " 2% "!" `
  36.  
  37. |
  38. |  RA title routine
  39. |
  40. &M
  41. #P,5,5;
  42. #G,10,10;
  43. #L,225,10;
  44. #L,225,105;
  45. #L,10,105;
  46. #L,10,10; 
  47. #O; #Q; `
  48.  
  49. &G 1% 2% Ñ0A893╝ª `
  50. &L 1% 2% Ñ0A891╝ª `
  51. &O
  52. 40 100 ╜
  53. "RA¬"
  54. 60 40 ╜ 
  55. "⌐ 1986/7 COM~LINK & S.Koren" 
  56. 80 60 ╜
  57. "All rights reserved." `
  58. &P 1% 2% Ñ0A89B╝ª `
  59. &Q ?ñ @ ╡` 
  60. $